home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Compute! Gazette 1985 November
/
1985-11.d64
/
disk encode.boot
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-09-20
|
153b
|
5 lines
14 print"[147]load"chr$(34)"disk encoder"chr$(34)",8"
15 print"poke646,1:run"
16 i$=chr$(13)+chr$(13)+"run"+chr$(13)
22 fori=1tolen(i$):poke630+i,asc(mid$(i$,i)):next:poke198,i:print"":end